From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 13 Jun 2007 00:03:28 +0000 (+0000)
Subject: (user-emacs-directory): New defconst.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18456
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e0ecb22e1cc00f7c77c25a534006c381f06d1224;p=emacs.git

(user-emacs-directory): New defconst.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index a05c1d15780..7ce7071f2f7 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2041,6 +2041,15 @@ On other systems, this variable is normally always nil.")
 (put 'cl-assertion-failed 'error-conditions '(error))
 (put 'cl-assertion-failed 'error-message "Assertion failed")
 
+(defconst user-emacs-directory
+  (if (eq system-type 'ms-dos)
+      ;; MS-DOS cannot have initial dot.
+      "~/_emacs.d/"
+    "~/.emacs.d/")
+  "Directory beneath which additional per-user Emacs-specific files are placed.
+Various programs in Emacs store information in this directory.
+Note that this should end with a directory separator.")
+
 
 ;;;; Misc. useful functions.